home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / prog_pas / sk210f.zip / TESTSHDK.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-10  |  2KB  |  89 lines
  1. {$I SHDEFINE.INC}
  2.  
  3. {$IFDEF Gen87}
  4.   {$N+,E+}
  5. {$ELSE}
  6.   {$N-}
  7. {$ENDIF}
  8.  
  9. {$IFNDEF EmulationOK}
  10.   {$E-}
  11. {$ENDIF}
  12.  
  13. {$F+}
  14.  
  15. program TestShdk;
  16. {
  17.                            Test suite driver
  18.                                 for the
  19.                       SkyHawk Developer's ToolKit.
  20.  
  21.                   Copyright 1991 Madison & Associates
  22.                           All Rights Reserved
  23.  
  24.          This program source file and the associated executable
  25.          file may be  used and distributed  only in  accordance
  26.          with the  provisions  described  on  the title page of
  27.                   the accompanying documentation file
  28.                               SKYHAWK.DOC
  29. }
  30. uses
  31. {$IFNDEF DPMI}
  32.   {$IFDEF OverlaysOK}
  33.     OverShdk,
  34.     Overlay,
  35.   {$ENDIF}
  36. {$ENDIF}
  37.  
  38.   TestDrvr,   Dos,
  39.  
  40.   TestBetw,   TestCmpx,   TestColr,   TestCrc,    TestDate,
  41.   TestFin,    TestList,   TestUtil,
  42.  
  43.   ShClrDef,   ShCmplx,    ShCrcChk,   ShDatPk,    ShFinanc,
  44.   ShList,     ShUtilPk,
  45.  
  46.   TpString,   TpCrt,      TPCmd,      TpDos,      TpEdit,
  47.   TpMemChk,   TpWindow,   TpMenu,
  48.  
  49.   ShErrMsg
  50.   {$IFNDEF DPMI}
  51.     ,   ExecSwap
  52.   {$ENDIF}
  53.     ;
  54.  
  55. {$IFNDEF DPMI}
  56.   {$IFDEF OverlaysOK}
  57.     {$O DOS}
  58.  
  59.     {$O TESTBETW}
  60.     {$O TESTCMPX}
  61.     {$O TESTCOLR}
  62.     {$O TESTCRC}
  63.     {$O TESTDATE}
  64.     {$O TESTFIN}
  65.     {$O TESTLIST}
  66.     {$O TESTUTIL}
  67.  
  68.     {$O SHCLRDEF}
  69.     {$O SHCMPLX}
  70.     {$O SHCRCCHK}
  71.     {$O SHDATPK}
  72.     {$O SHFINANC}
  73.     {$O SHLIST}
  74.  
  75.     {$O TPDOS}
  76.     {$O TPEDIT}
  77.     {$O TPMEMCHK}
  78.     {$O TPWINDOW}
  79.   {$ENDIF}
  80. {$ENDIF}
  81.  
  82. begin
  83. {$IFNDEF DPMI}
  84.   InitExecF := InitExecSwap;
  85.   ExecSwapF := ExecWithSwap;
  86. {$ENDIF}
  87.   DoTests;
  88.   end.
  89.